home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbpxen / return.frm < prev    next >
Text File  |  1995-10-23  |  5KB  |  184 lines
  1. VERSION 2.00
  2. Begin Form ReturnForm 
  3.    Caption         =   "Return"
  4.    ClientHeight    =   4875
  5.    ClientLeft      =   1050
  6.    ClientTop       =   1485
  7.    ClientWidth     =   5280
  8.    Height          =   5280
  9.    Left            =   990
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4875
  15.    ScaleWidth      =   5280
  16.    Top             =   1140
  17.    Width           =   5400
  18.    Begin CommandButton ButtonCancel 
  19.       Caption         =   "&Cancel"
  20.       Height          =   615
  21.       Left            =   2520
  22.       TabIndex        =   2
  23.       Top             =   2760
  24.       Width           =   1095
  25.    End
  26.    Begin CommandButton ButtonOK 
  27.       Caption         =   "&OK"
  28.       FontBold        =   -1  'True
  29.       FontItalic      =   0   'False
  30.       FontName        =   "MS Sans Serif"
  31.       FontSize        =   9.75
  32.       FontStrikethru  =   0   'False
  33.       FontUnderline   =   0   'False
  34.       Height          =   615
  35.       Left            =   120
  36.       TabIndex        =   1
  37.       Top             =   2760
  38.       Width           =   1095
  39.    End
  40.    Begin TextBox tapenumber 
  41.       Height          =   375
  42.       Left            =   120
  43.       TabIndex        =   0
  44.       Text            =   " "
  45.       Top             =   720
  46.       Width           =   1095
  47.    End
  48.    Begin Label custname 
  49.       BorderStyle     =   1  'Fixed Single
  50.       Caption         =   " "
  51.       Height          =   375
  52.       Left            =   1560
  53.       TabIndex        =   5
  54.       Top             =   1800
  55.       Width           =   3615
  56.    End
  57.    Begin Label custnumber 
  58.       BorderStyle     =   1  'Fixed Single
  59.       Caption         =   " "
  60.       Height          =   375
  61.       Left            =   120
  62.       TabIndex        =   7
  63.       Top             =   1800
  64.       Width           =   1095
  65.    End
  66.    Begin Label Label1 
  67.       Caption         =   "Customer:"
  68.       Height          =   255
  69.       Left            =   120
  70.       TabIndex        =   3
  71.       Top             =   1440
  72.       Width           =   1095
  73.    End
  74.    Begin Label tapetitle 
  75.       BorderStyle     =   1  'Fixed Single
  76.       Height          =   375
  77.       Left            =   1560
  78.       TabIndex        =   6
  79.       Top             =   720
  80.       Width           =   3615
  81.    End
  82.    Begin Label Label2 
  83.       Caption         =   "Tape number:"
  84.       Height          =   255
  85.       Left            =   120
  86.       TabIndex        =   4
  87.       Top             =   240
  88.       Width           =   1335
  89.    End
  90. End
  91.  
  92.  
  93. Sub ButtonCancel_Click ()
  94.     custname.caption = " "
  95.     custnumber.caption = " "
  96.     tapenumber.text = " "
  97.     tapetitle.caption = " "
  98.     returnform.Hide
  99. End Sub
  100.  
  101. Sub ButtonOK_Click ()
  102.     Dim savecustnum As String
  103.     '
  104.     '  Get the tape and update
  105.     '
  106.     itemrec.itemnumber = tapenumber.text
  107.     rc = GetItemRec(DBKEYED)
  108.     If rc Then
  109.         Beep
  110.         MsgBox "Tape not on database", MB_ICONINFORMATION
  111.         Exit Sub
  112.     End If
  113.  
  114.     inout$ = Left$(itemrec.inout_code, 1)
  115.     If inout$ <> "O" Then
  116.         Beep
  117.         MsgBox "Tape not out", MB_ICONINFORMATION
  118.         Exit Sub
  119.     End If
  120.     
  121.     custrec.custnumber = itemrec.custnum
  122.     '
  123.     '  Change tape status to IN and blank custnum
  124.     '
  125.     itemrec.custnum = " "
  126.     itemrec.inout_code = "IN"
  127.     rc = UpdateItemRec()
  128.     tapetitle.caption = "OK"
  129.                     
  130.     iNumTapes = iNumTapes + 1
  131.     '
  132.     '  Get the customer again and update as quickly
  133.     '  as possible.  Should lock it, but requires more code
  134.     '
  135.     rc = GetCustomerRec(DBKEYED)
  136.     custrec.tapes_out = custrec.tapes_out - 1
  137.     rc = UpdateCustomerRec()
  138.     '
  139.     '  Clear the screen for the next return
  140.     '
  141.     custname.caption = " "
  142.     custnumber.caption = " "
  143.     tapenumber.text = " "
  144.     tapetitle.caption = "OK"
  145.     tapenumber.SetFocus
  146.  
  147.     Exit Sub
  148. End Sub
  149.  
  150. Sub Form_Load ()
  151.     custname.caption = " "
  152.     tapenumber.text = " "
  153.     tapetitle.caption = " "
  154. End Sub
  155.  
  156. Sub tapenumber_LostFocus ()
  157.     If tapenumber.text = " " Then
  158.         Exit Sub
  159.     End If
  160.  
  161.     itemrec.itemnumber = tapenumber.text
  162.     rc = GetItemRec(DBKEYED)
  163.     If rc Then
  164.         Beep
  165.         tapetitle.caption = "???"
  166.         Exit Sub
  167.     End If
  168.     
  169.     tapetitle.caption = itemrec.itemdesc
  170.     custnumber.caption = itemrec.custnum
  171.  
  172.     custrec.custnumber = itemrec.custnum
  173.     rc = GetCustomerRec(DBKEYED)
  174.     If rc Then
  175.         Beep
  176.         custname.caption = "???"
  177.         Exit Sub
  178.     End If
  179.     
  180.     custname.caption = custrec.lastname
  181.     
  182. End Sub
  183.  
  184.